1 Public Class FrmDEFFECTIVE_STOCKS_RETURN
2
3     Private Sub cmdprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdprint.Click
4         Dim Report As New FrmREPORTS
5         Rpt_SqlStr =
"SELECT * FROM TBL_Deffective_PO_Return WHERE Return_Date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Return_Date <='" & Format(dtto.Value, "MM/dd/yyyy") & "'"
6         Audit_Trail(xUser_ID, TimeOfDay,
"Print Report - Deffective Stocks Return ")
7         Report.Show()
8         
'FrmREPORTS.Show()
9         Me.Close()
10     End Sub
11
12     Private Sub cmdcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancel.Click
13         Me.Close()
14     End Sub
15 End Class


Gõ tìm kiếm nhanh...